home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / support / lightCycleWheel.wwModel / wheel.eve < prev   
Encoding:
Text File  |  1995-03-22  |  1.7 KB  |  54 lines
  1. set tire(yScale) {1.060000};
  2. set tire(thetaMax) {360.000000};
  3. set tire(minorRadius) {2.000000};
  4. set tire(phiMin) {0.0};
  5. set tire(xTranslate) {0};
  6. set tire(xRotate) {0};
  7. set tire(phiMax) {360.0};
  8. set tire(yRotate) {0};
  9. set tire(xScale) {1.000000};
  10. set tire(zTranslate) {0};
  11. set tire(zRotate) {0};
  12. set tire(majorRadius) {2.0};
  13. set tire(zScale) {0.344262};
  14. set tire(color) {0.099994 0.099994 0.099994};
  15. set tire(yTranslate) {0};
  16. set hubcap(radius) {3.400000};
  17. set hubcap(yScale) {1};
  18. set hubcap(thetaMax) {360.0};
  19. set hubcap(zMin) {-5.333333};
  20. set hubcap(xTranslate) {0};
  21. set hubcap(xRotate) {0};
  22. set hubcap(yRotate) {0};
  23. set hubcap(zMax) {9.000000};
  24. set hubcap(xScale) {1};
  25. set hubcap(zTranslate) {0};
  26. set hubcap(zRotate) {0};
  27. set hubcap(zScale) {1};
  28. set hubcap(yTranslate) {0};
  29. set hubcap(color) {0.924665 0.901624 1.000000};
  30.  
  31. startShape Wheel
  32.      Rotate 90 0 1 0
  33.     startShape Tire
  34.         Surface $surface(rubber)
  35.         EveCmd {Color $tire(color)}
  36.         EveCmd {Scale $tire(xScale) $tire(yScale) $tire(zScale)}
  37.         EveCmd {Translate $tire(xTranslate) $tire(yTranslate) $tire(zTranslate)}
  38.         EveCmd {Rotate $tire(xRotate) 1 0 0 }
  39.         EveCmd {Rotate $tire(yRotate) 0 1 0 }
  40.         EveCmd {Rotate $tire(zRotate) 0 0 1 }
  41.         EveCmd {Torus $tire(majorRadius) $tire(minorRadius) $tire(phiMin) $tire(phiMax) $tire(thetaMax)}
  42.         startShape Hubcap 
  43.             Surface $surface(metal);
  44.             EveCmd {Color $hubcap(color)}
  45.             EveCmd {Scale $hubcap(xScale) $hubcap(yScale) $hubcap(zScale)}
  46.             EveCmd {Translate $hubcap(xTranslate) $hubcap(yTranslate) $hubcap(zTranslate)}
  47.             EveCmd {Rotate $hubcap(xRotate) 1 0 0 }
  48.             EveCmd {Rotate $hubcap(yRotate) 0 1 0 }
  49.             EveCmd {Rotate $hubcap(zRotate) 0 0 1 }
  50.             EveCmd {Sphere $hubcap(radius) $hubcap(zMin) $hubcap(zMax) $hubcap(thetaMax)}
  51.         endShape
  52.     endShape
  53. endShape
  54.